home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #061 (1990-04)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #061 (1990-04)(Amiga User Group Deutschland e.V.).adf / CassCalc / CassCalc (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-02  |  4KB  |  218 lines
  1.  
  2. SCREEN 2,640,256,4,2
  3. WINDOW 2,"",,0,2
  4. PALETTE 0,0,0,0
  5. PALETTE 2,0.15,0.2,0.87
  6. PALETTE 3,0.47,0.87,1
  7. PALETTE 4,0.93,0.2,0
  8. PALETTE 5,0.5,1,0
  9. PALETTE 6,0.15,0.15,0.15
  10. PALETTE 7,0.2,0.2,0.2
  11. PALETTE 8,0.25,0.25,0.25
  12. PALETTE 9,0.3,0.3,0.3
  13. PALETTE 10,0.4,0.4,0.4
  14. PALETTE 11,0.5,0.5,0.5
  15. PALETTE 12,0.6,0.6,0.6
  16. PALETTE 13,0.7,0.7,0.7
  17. PALETTE 14,0.8,0.8,0.8
  18.  
  19. Titel:
  20. COLOR 0,0
  21. CLS
  22. LINE(0,0)-(640,1),6,bf
  23. LINE(0,2)-(640,4),7,bf
  24. LINE(0,5)-(640,7),8,bf
  25. LINE(0,8)-(640,10),9,bf
  26. LINE(0,11)-(640,13),10,bf
  27. LINE(0,14)-(640,16),11,bf
  28. LINE(0,17)-(640,19),12,bf
  29. LINE(0,20)-(640,23),13,bf
  30. LINE(0,24)-(640,31),14,bf
  31. LINE(0,32)-(640,35),13,bf
  32. LINE(0,36)-(640,38),12,bf
  33. LINE(0,39)-(640,41),11,bf
  34. LINE(0,42)-(640,44),10,bf
  35. LINE(0,45)-(640,47),9,bf
  36. LINE(0,48)-(640,50),8,bf
  37. LINE(0,51)-(640,53),7,bf
  38. LINE(0,54)-(640,55),6,bf
  39. COLOR 2,14
  40. LOCATE 4,19
  41. PRINT "CASSCALC           von  Stephan Kanoniczak"
  42. COLOR 2,0
  43. LOCATE 10,31
  44. PRINT "Kassettenlänge"
  45. LOCATE 15,33
  46. PRINT "1   -   C60"
  47. LOCATE 17,33
  48. PRINT "2   -   C90"
  49. LOCATE 19,33
  50. PRINT "3   -   C100"
  51.  
  52. Taste2:
  53. a$=INKEY$
  54. IF a$="1" OR a$="2" OR a$="3" THEN GOTO Weiter2
  55. SLEEP
  56. GOTO Taste2
  57. Weiter2:
  58. IF a$="1" THEN l=60
  59. IF a$="2" THEN l=90
  60. IF a$="3" THEN l=100
  61.  
  62. Anfang:
  63. COLOR 0,0
  64. CLS
  65. min=0
  66. sec=0
  67. x=2
  68. LINE(400,12)-(520,178),14,bf
  69. FOR j=1 TO 8
  70. x1=400-j
  71. y1=12-j
  72. x2=520+j
  73. y2=178+j
  74. c=14-j
  75. LINE(x1,y1)-(x2,y2),c,b
  76. NEXT
  77. COLOR 0,14
  78. FOR i=1 TO 20
  79. h=2+i
  80. LOCATE h,52 : PRINT i
  81. NEXT
  82. LINE(340,202)-(520,236),14,bf
  83. FOR j=1 TO 8
  84. x1=340-j
  85. y1=202-j
  86. x2=520+j
  87. y2=236+j
  88. c=14-j
  89. LINE(x1,y1)-(x2,y2),c,b
  90. NEXT
  91. LOCATE 27,49 : PRINT "Total:"
  92. LOCATE 29,45 : PRINT "Remaining:"
  93. LINE(34,60)-(250,90),14,bf
  94. FOR j=1 TO 8
  95. x1=34-j
  96. y1=60-j
  97. x2=250+j
  98. y2=90+j
  99. c=14-j
  100. LINE(x1,y1)-(x2,y2),c,b
  101. NEXT
  102. LINE(34,150)-(250,236),14,bf
  103. FOR j=1 TO 8
  104. x1=34-j
  105. y1=150-j
  106. x2=250+j
  107. y2=236+j
  108. c=14-j
  109. LINE(x1,y1)-(x2,y2),c,b
  110. NEXT
  111. LOCATE 10,7
  112. PRINT "Minuten:"
  113. LOCATE 10,19
  114. PRINT "Sekunden:"
  115.  
  116. Start:
  117. x=x+1
  118. LINE(34,150)-(250,236),14,bf
  119. COLOR 0,14
  120. LOCATE 10,16
  121. PRINT "  "
  122. LOCATE 10,29
  123. PRINT "  "
  124. COLOR 4,14
  125. LOCATE 21,16
  126. PRINT "Bitte"
  127. LOCATE 23,9
  128. PRINT "Minuten und Sekunden"
  129. LOCATE 25,9
  130. PRINT " eingeben und jede"
  131. LOCATE 27,9
  132. PRINT " Eingabe mit RETURN"
  133. LOCATE 29,9
  134. PRINT "     quittieren"
  135. LOCATE 10,16
  136. COLOR 9,14
  137. INPUT"",minx
  138. LOCATE 10,29
  139. INPUT"",secx
  140. COLOR 2,14
  141. y=(sec+secx)/60
  142. sec2=sec
  143. min1=FIX(y)
  144. z=y-min1
  145. sec=CINT(z*60)
  146. min=minx+min1+min
  147. minr=(l/2-1)-min
  148. f=2
  149. IF minr<0 THEN
  150. minr=minr+1
  151. secr=sec
  152. f=4
  153. ELSE
  154. secr=60-sec
  155. END IF
  156. IF minr=0  AND (secx+sec2)>60 THEN 
  157. secr=-secr
  158. f=4
  159. END IF
  160. IF secr=60 THEN 
  161. minr=minr+1
  162. secr=0
  163. END IF
  164. COLOR f,14
  165. LOCATE x,57
  166. PRINT minx
  167. LOCATE x,60
  168. PRINT ":"
  169. LOCATE x,61
  170. PRINT secx
  171. LOCATE 27,57
  172. PRINT min
  173. LOCATE 27,60
  174. PRINT ":"
  175. LOCATE 27,61
  176. PRINT sec
  177. LOCATE 29,57
  178. PRINT minr
  179. LOCATE 29,60
  180. PRINT ":"
  181. LOCATE 29,61
  182. PRINT secr
  183. LOCATE 27,5
  184. LINE(34,150)-(250,236),14,bf
  185. LOCATE 21,8
  186. COLOR 4,14
  187. PRINT "w  -  Weiter"
  188. LOCATE 23,8
  189. PRINT "c  -  Eingaben löschen"
  190. LOCATE 25,8
  191. PRINT "n  -  Neustart"
  192. LOCATE 28,8
  193. PRINT "q  -  Quit"
  194.  
  195. Taste:
  196. a$=INKEY$
  197. IF a$="w" OR a$="c" OR a$="n" OR a$="q" THEN GOTO Weiter
  198. SLEEP
  199. GOTO Taste
  200.  
  201. Weiter:
  202. IF a$="w" THEN GOTO Start
  203. IF a$="c" THEN GOTO Anfang
  204. IF a$="n" THEN GOTO Titel
  205. IF a$="q" THEN GOTO Ende
  206.  
  207. Ende:
  208. WINDOW CLOSE 2
  209. SCREEN CLOSE 2
  210. END
  211.  
  212.  
  213.  
  214.  
  215.  
  216.  
  217.  
  218.